home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swaga_c.zip / COMM.SWG / 0019_Get number of RS232 Ports.pas < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  252b  |  10 lines
  1. FUNCTION Serial_Ports : byte;
  2. { DESCRIPTION:
  3.     Gets the number of RS232 ports available in a system.
  4.   SAMPLE CALL:
  5.     NB := Serial_Ports; }
  6.  
  7. BEGIN { Serial_Ports }
  8.   Serial_Ports := (MemW[$0000:$0410] shl 4) shr 13;
  9. END; { Serial_Ports }
  10.